home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / moden / adpstat.int < prev    next >
Text File  |  1996-04-08  |  2KB  |  75 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                     ADPSTAT 1.01                      *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdPStat;
  13.  
  14. interface
  15.  
  16. uses
  17.   {------RTL}
  18.   SysUtils,
  19.   WinTypes,
  20.   WinProcs,
  21.   {------VCL}
  22.   Messages,
  23.   Classes,
  24.   Graphics,
  25.   Controls,
  26.   Forms,
  27.   Dialogs,
  28.   ExtCtrls,
  29.   StdCtrls,
  30.   Gauges,
  31.   {------APD}
  32.   OoMisc,
  33.   AdProtcl;
  34.  
  35. type
  36.   {.Z+}
  37.   {Standard protocol status form}
  38.   TStandardDisplay = class(TForm)
  39.     psProtocol          : TLabel;
  40.     psBlockCheck        : TLabel;
  41.     psFileName          : TLabel;
  42.     psFileSize          : TLabel;
  43.     psBlockSize         : TLabel;
  44.     psTotalBlocks       : TLabel;
  45.     psBytesTransferred  : TLabel;
  46.     psBytesRemaining    : TLabel;
  47.     psBlocksTransferred : TLabel;
  48.     psBlocksRemaining   : TLabel;
  49.     psBlockErrors       : TLabel;
  50.     psTotalErrors       : TLabel;
  51.     psEstimatedTime     : TLabel;
  52.     psElapsedTime       : TLabel;
  53.     psRemainingTime     : TLabel;
  54.     psThroughput        : TLabel;
  55.     psEfficiency        : TLabel;
  56.     psKermitWindows     : TLabel;
  57.     psStatusMsg         : TLabel;
  58.     psProgressBar       : TGauge;
  59.     Cancel              : TButton;
  60.     Panel1              : TPanel;
  61.     procedure UpdateValues(Protocol : TApdCustomProtocol);
  62.     procedure CancelClick(Sender: TObject);
  63.   public
  64.     Protocol            : TApdCustomProtocol;
  65.   end;
  66.   {.Z-}
  67.  
  68.   {Standard protocol status class}
  69.   TApdProtocolStatus = class(TApdAbstractStatus)
  70.     procedure CreateDisplay; override;
  71.     procedure DestroyDisplay; override;
  72.     procedure UpdateDisplay(First, Last : Boolean); override;
  73.   end;
  74.  
  75.